Program Temperature;
{   . 
     
      }
Var T: array[1..12] of real; {   }
Var Dt: array[1..12] of real; {     }
 I: integer;  Tsred: real;
 Begin
{ }
	for I:=1 to 12 step 1 do
	begin  Write('T[',I:2,']=');
	           Readln(T[I])
                 End;
{ }
       	Tsred:=0;
	for I:=1 to 12 do
      	     Tsred:=Tsred+T[I];
{  }
      	Tsred:=Tsred/12;
{ }
     	Writeln(' =', Tsred:6:2, ' ')
{       }
	for I:=1 to 12 step 1 do
	begin  
	         Dt[I]:=T[I] - Tsred;
	         Writeln('Dt[',I:2,']=', Dt[I]:6:2)
	End
End.

